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OVERVIEW 


This  program  is  a  modification  of  the  Investment  Analysis  Program 
developed  by  CLark  Row  as  described  in  SO-6,  Determining  Forest  Invest- 
ment Rates-of-Return  by  Electroni c  Computer,  1962  (Southern  Forest 
Experiment  Station,  New  Orleans,  La. ) • 


PAR-3  develops  present  net  worth  for  six  interest  rates  simultane- 
ously for  six  alternatives.    The  program  also  calculates  the  internal 
rate  of  return  for  each  alternative.    In  addition,  PAR-3  calculates 
annual  equivalent  income  for  each  of  the  six  rates  of  interest  for 
each  alternative.    This  portion  of  the  program  is  valid  only  for  the 
final  value  option. 


The  variables  are: 

1.  Yields  for  up  to  three  different  products. 

2.  Year  of  periodic  costs  and  product  returns. 

3.  Quality  index  for  products. 

4.  .  Annual  costs. 

5.  Annual  increase  in  annual  costs  (simple  interest). 

6.  Product  prices. 

7.  Annual  change  in  product  prices  (simple  interest). 

8.  Final  values, 

Yield  data  is  not  generated  within  the  program. 


METHODS  OF  EXPRESSING  RETURNS  ON  INVESTMENTS 


A  program  that  expresses  return  on  investment  in  two  or  more  ways  is 
a  more  valuable  tool  than  a  program  which  gives  only  one  measure  of  pro- 
fitability.   As  mentioned  above,  the  PAR-3  program  measures  return  on 
investment  in  three  ways.    To  help  readers  of  this  publication  to  visual- 
ize the  differences  between  the  three  expressions  of  return  on  investment, 
a  brief  desciption  of  each  follows; 

Present  Net  Worth  (PNW)  is  the  difference  between  the  present  value 
of  all  cost  (present  and  future)  and  income  at  a  given  interest.    A  posi- 
tive PNW  indicates  that  the  investment  furnishes  a  higher  return  than  the 
selected  interest  rate.    A  PNW  of  zero  indicates  an  investment  that  is 
just  equaling  the  selected  rate.    The  selected  interest  rate  indicates 
the  investors  minimum  objective  or  alternative  investment  opportunity. 


Annual  Equivalent  Value  is  the  amount  of  annual  income  or  payment 
that  will  just  equal  the  present  net  worth  of  an  investment  during  its 
lifetime.    In  forestry,  these  values  are  theoretical  because  income  does 
not  occur  on  an  annual  basis.    However,  these  figures  are  useful  in  com- 
paring forestry  with  investments  that  have  annual  returns. 


Rate  of  Return  (Sometime  referred  to  as  Internal  Rate  of  Return)  is 
the  compound  interest  rate  used  where  the  present  net  worth  is  zero.  In 
other  words,  rate  of  return  is  the  compound  interest  rate  that  equates 
the  present  value  of  all  future  incomes  with  the  present  value  of  all 
future  costs.    It  is  assumed  that  all  incomes  can  be  reinvested  at  the 
same  rate  of  return.. 


DATA  PREPARATION 

Appropriate  data  for  each  problem  must  be  prepared  and  keypunched 
onto  a  computer  card.    Suitable  forms  for  data  entry  are  shown  separately 
with  appropriate  data  item  and  column  identity.    (See  figures  1  and  2). 
Instructions  for  input  entries  follows: 
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Examples 


The  examples  in  this  publication  are  used  to  illustrate  some  of  the 
possible  uses  of  the  program  rather  than  to  provide  answers  to  specific 
problems.    Whole  numbers  are  right  justified  in  those  entries  showing 
decimals.    In  those  entries  with  whole  numbers,  decimal  points  need  not 
be  punched. 

The  two  sample  problems  illustrated  are  for  loblolly  pine  for  a  site 
index  70.    Two  rotations  (30  and  45  years)  and  3  establishment  costs 
(30,  60  and  90)  are  calculated  simultaneously  for  each  of  9  product  price 
combinations  and  2  annual  costs  ($.60  and  $1.00).    In  problem  2  only, 
$15/acre  cost  for  release  is  used.    All  other  variables  are  the  same  as 
in  problem  1.    All  cost,  yields  and  returns  are  on  an  acre  basis. 


Input  Data 
The  input  data  is  as  follows: 


Table  1.    Input  Data  for  Six  Alternatives  --  Sample  Problems 


Alternatives 


Input  Variables 
Rotation  Length  (yrs) 
Periodic  Costs  Yr.  0 

3  1/ 

Yields  --  age  20  cords 
--  age  30  cords 
age  30  mbf  ^ 
--  age  45  mbf 

1/ 

In  same  problem  2  only. 


1 

2 

3 

4 

5 

6 

30 

30 

30 

45 

45 

45 

$30 

$60 

$90 

$30 

$60 

$90 

15 

15 

15 

15 

15 

15 

6 

6 

6 

6 

6 

6 

7 

7 

7 

7 

7 

7 

5.3 

5.3 

5.3 

1.1 

1.1 

1.1 

11.7 

11.7 

11.7 

y  To  illustrate  the  use  of  quality  as  a  variable,  all  products  with  the 

exception  of  sawtimber  at  30  years  in  the  45-year-rotation  are  100  percent 
(1.).    For  sawtimber  at  30  years  in  the  three  45-year-rotation  alternatives, 
a  quality  of  90  percent  (.9)  is  assumed.    The  effect  will  be  the  use  of 
90  percent  of  the  sawtimber  value  at  that  time  in  the  calculations. 

Two  levels  of  annual  costs  are  used: 
$.60  per  acre  increased  2  percent  annual ly--simple  interest,  and 
$1.00  per  acre  increased  2  percent  annually--simple  interest. 
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Product  Price  Combinations 


$/cd 


$/MBF 


5 
5 
8 
8 
8 
8 
11 
11 
11 


and 


50 
75 

100 
50 
75 

100 
50 
75 

100 


All  prices  and  annual  costs  increase  2  percent  annual ly--simple  interest. 
A  final  value  of  0.0  is  used. 

Figures  3  and  4  are  input  sheets  for  problem  1.    Items  1,  2  and  3  match 
the  input  sheet.    Item  4  includes  one  set  of  variables  that  apply  to  all  six 
alternatives.    The  first  set  is  for  annual  costs  of  $.60,  pulpwood  selling 
prices  of  $5  per  cord  and  $50  per  MBF.    Item  5  is  the  Present  Net  Worth  at 
six  different  interest  rates.    Item  6  is  the  Internal  Rate  of  Return  expressed 
as  compound  interest  for  each  of  the  alternatives.    Item  7  is  the  Equivalent 
Annual  Income  for  each  of  the  alternatives,  for  each  of  the  six  interest  rates. 
Item  8  is  the  same  problem  with  the  second  set  of  product  prices  --  $5  per 
cord  and  $75  per  thousand  board  feet. 

Figure  6  is  an  input  sheet  identical  to  figure  3  with  the  exception  of 
the  addition  of  a  periodic  cost  at  year  3  of  $15  for  release.    The  second 
input  sheet  would  be  unchanged  except  for  the  terminal  card  which  is  99. 

Figure  7  is  a  partial  printout  of  this  new  set  of  alternatives.  The 
effects  of  the  15  additional  years  on  the  investment  can  be  readily  compared 
for  each  combination  of  establishment  cost,  product  prices  and  annual  cost. 


The  following  tables  partially  summarize  the  output  for  the  two 
problems:    Table  2  lists  the  IRR,  Present  Net  Worth  at  8  percent  and 
Annual  Equivalent  Income  at  8  percent  for  Problem  1  for  the  9  product 
prices  and  a  $.60  per  acre  annual  cost.    Table  3  lists  the  IRR,  Per- 
sent  Net  Worth  at  8  percent  and  Annual  Equivalent  Income  at  8  percent 
for  Problem  2.    The  only  change  from  Problem  1  is  the  $15  release 
cost  at  age  3.    Only  the  $.60  per  acre  annual  cost  is  summarized. 


Sample  Output  Summary 
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Table  2.  --  Sample  output  summary:  Problem  2,  loblolly  pine  with 
release  at  age  3;  site  Index  is  70;  30  and  45-Year  rotation. 


Establishment  cost 


Product 
Pulp 

Pri  ce 
ST 

$30 

60 

90 

30 

60 

90 

30  yr 

30  yr 

30  yr 

45  yr 

45  yr 

45  yr 

(Cords) 

(MBF) 

— Pe rcent  

5 

50 

9.7 

7.3 

5.9 

9.2 

7.5 

6.4 

5 

75 

10.9 

8.5 

7.1 

10.2 

8.4 

7.3 

5 

100 

11.9 

9.5 

8.0 

10.9 

9.1 

8.0 

8 

50 

10.3 

7.9 

6.4 

9.8 

7.9 

6.8 

8 

75 

11.5 

9.0 

7.5 

10.6 

8.7 

7.6 

8 

100 

12.3 

9.8 

8.4 

11.3 

9.4 

8.3 

n 

50 

10.9 

8.4 

6.9 

10.3 

8.3 

7.1 

11 

75 

11.9 

9.4 

7.9 

11.1 

9.1 

7.9 

n 

100 

12.7 

10.2 

8.7 

11.7 

9.7 

8.5 

Present  net  worth  at  8  percent 
 dollar   


5 

50 

18 

-11 

-41 

18 

-12 

-42 

5 

75 

40 

10 

-20 

40 

10 

-20 

5 

100 

61 

31 

1 

61 

31 

1 

8 

50 

27 

-3 

-33 

27 

-3 

-33 

8 

75 

49 

19 

-11 

49 

18 

-12 

8 

100 

70 

40 

10 

70 

40 

10 

n 

50 

36 

6 

-24 

36 

6 

-24 

n 

75 

57 

27 

-3 

57 

27 

-3 

11 

100 

78 

48 

18 

79 

49 

19 

Annual 

equi  valent 

i  n  come 

at  8  percent 

do! lar 


5 

50 

1.55 

-.93 

-3.41 

1.52 

-.96 

-3.44 

5 

75 

3.29 

.81 

-1.67 

3.28 

.89 

-1.67 

5 

100 

5.03 

2.55 

.07 

5.05 

2.57 

.09 

8 

50 

2.37 

-.21 

-2.69 

2.24 

-.24 

-2.71 

8 

75 

4.01 

1.53 

-.95 

4.00 

1.53 

-.95 

8 

100 

5.75 

3.27 

.79 

5.77 

3.29 

.81 

n 

50 

2.99 

.51 

-1.96 

2.96 

.49 

-1.99 

11 

75 

4.73 

2.25 

-.23 

4.73 

2.25 

-.23 

11 

100 

6.47 

3.99 

1.51 

6.49 

4.01 

1.53 

-14- 


Table  3.---  Sample  output  summary:  Problem  2,  loblolly  pine  with  release 
at  age  3;  site  Index  is  70;  30  and  45  year  rotation. 


 IRR  

Establishment  cost 


Product 
Pulp 

Pri  ce 
ST 

30 

60 

90 

30 

60 

90 

30  yr 

30  yr 

30  yr 

45  yr 

45  yr 

45  yr 

(Cords) 

(MBF) 

---percent- 

5 

50 

8.5 

6.6 

5.4 

8.4 

7.0 

6.1 

5 

75 

9.8 

7.9 

6.7 

9.3 

7.9 

7.0 

5 

100 

10.8 

8.8 

7.6 

10.1 

8.6 

7.7 

8 

50 

9.2 

7.2 

5.9 

8.9 

7.4 

6.4 

8 

75 

10.3 

8.3 

7.1 

9.7 

8.2 

7.3 

8 

100 

11.2 

9.2 

7.9 

10.4 

8.9 

7.9 

11 

50 

9.7 

7.7 

6.4 

9.4 

7.7 

6.7 

11 

75 

10.8 

8.7 

7.4 

10.1 

8.5 

7.6 

11 

100 

11.6 

9.5 

8.2 

10.8 

9.2 

8.2 

Present  net  worth  at  8  percent 
 dol 1 ar  


5 

50 

7 

-23 

-53 

6 

-24 

5 

75 

28 

-2 

-32 

28 

-2 

5 

100 

49 

19 

-11 

49 

19 

8 

50 

16 

-14 

-44 

15 

-15 

8 

75 

37 

7 

-23 

37 

7 

8 

100 

58 

28 

-2 

58 

28 

11 

50 

24 

-6 

-36 

24 

-6 

11 

75 

45 

15 

-15 

45 

15 

11 

100 

66 

36 

6 

67 

37 

Annual  equivalent  income 

at  8  percent 

 dol 1 ar — 

5 

50 

.56 

-1.92 

-4.39 

.54 

-1.94 

5 

75 

2.30 

-.18 

-2.65 

2.30 

-.18 

5 

100 

4.04 

1.56 

-.91 

4.06 

1.58 

8 

50 

1.28 

-1.19 

-3.67 

1.26 

-1.22 

8 

75 

3.02 

.55 

-1.93 

3.02 

.54 

8 

100 

4.76 

2.29 

.19 

4.78 

2.31 

n 

50 

2.01 

-.47 

-2.95 

1.98 

-.50 

11 

75 

3.75 

1.27 

-1.21 

3.74 

1.27 

11 

100 

5.47 

3.01 

.53 

5.51 

3.03 

•54 
■32 
■11 
■45 
■23 
-2 
-36 
-15 
7 


•4.42 
•2.66 
-.89 
■3.70 
•1.93 
-.17 
■2.97 
■1.21 
.55 
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PROGRAM  SPECIFICATIONS 


The  computer  program  is  written  in  FORTAN  IV  and  should  operate  on 
computers  having  this  capability  with  little  or  no  modification.  The 
program  is  listed  as  an  appendix,  pages  17-22.    Processing  through  the 
program  is  generally  straight-forward  with  little  branching.    The  six 
rates  of  interest  used  for  present  net  worth  and  equivalent  annual  income 
can  be  changed  easily  by  a  programmer.    The  program  decks  and  data 
entry  forms  are  available  from  the  Southeastern  Area, 

PROGRAM  OPERATION 

The  program  is  written  to  accept  data  punched  on  computer  cards, 
although  modification  for  data  entry  from  a  terminal  would  not  be 
difficult.    The  job  setup  for  operation  of  the  program  will  consist 
of  the  appropriate  job  control  cards  to  compile  the  computer  program 
or  to  retrieve  the  compiled  program  from  the  program  library  plus  a 
data  deck  of  problem  cards.    The  data  for  each  problem  is  punched  on 
several  computer  cards  and  as  many  problems  may  be  processed  in  a 
single  run  as  desired  by  use  of  98  cards  between  problems.  Processing 
is  terminated  by  encountering  an  end-of-file  card  (99)  following  the 
data.    Processing  costs  should  be  modest. 
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APPENDIX  A 


Listing  of  Computer  Program 

•FOR, I  PAR  3 

DATA   MPR/6/, MRE/5/  0 

C  INVESTMENT  ANALYSIS  PROGRAM  SOUTHERN  FOREST  EXPERIMENT  STATION  01 

C         ICLARK  ROW  62       J005  DLT   1108  FE8,    13  70  02 

DIMENSION  ANC(IO),   CANC(IO),   NCib,UO),   PECa(6,aO),   Nl(6,50),  03 

1YL01(6,50),    aUALl(6,50),    N2(6,50),    QUAL2(fe,50),    N3(6,50),    YLD3  04 

2(6,50),   f5lJAL3(6,50) ,   PR  ( 3 ,  3  0) ,  C  PR  (  3 ,  30 ) ,   FVAL(25),   RATEC27),  05 

3RTLOG(?7U  VALIN(6,27),  LY(6),  KCX(6),  K1X(6),  K2X(b),  K3X(6),  06 
aA(331,   LT(6),YL02(6,50),RDR(6),   EAI  (6,6) 

RATE(1)=.060  09 

RATE(7)5.00l  10 

RATE(8)=i.O  II 

DO  136  1=1,6  12 

130  IF   (RATE(I)-, 158) 1 35, 137, 137  13 

135  RATE(I  +  n=RATE(I)  +  .  020  14 

136  CONTINUE  15 

137  DO  138  1=1,8  16 
13«  RTLOG(I)=ALOG(1,0+RATE(I))  17 

1«2  READ   (5,ll)Nn,LZ,LX,(LI(L),Lsl,6),(LY(L),L=l#6),KX,KCXX,(KCX(L),U=  18 

11,6),K1XX,(K1X(L),L=1,6),K2XX,(K2X(L),L=   1,6),K3XX,(K3X(L),L=1#6),  19 

2  JX,MX,N7,NX  20 

11   F0RMAT(3feI2)  21 

READ   (MRErl5)(A(I),I=l,18)  22 

•  15  FORMAT   (l8Aa)  23 

READ   (MRE,15)    (A(l) , Isl9, 53)  24 

WRITE   (MPR,20)  25 

20  FORMATdHl  ,2flX,72HR0w«S  INVESTMENT  ANALYSIS  PROGRAM  SQUTHERN  F  26 
*OREST  EXPERIMENT  STATION/  a2X,»-  PAR-3  REVISION  BY  STEBER,  BALME  27 
IR,   AND   UTZ  -    ',/  a8X, 'STATE   &   PRIVATE  FORESTRY,    8£   AREA')  28 

WRITE   (MPR,21)   NO, (A(I),I=1,18)  29 

21  FORMAT   (\UHO     PROBLEM  NO  »    lU,    IH   ,    18Aa)  30 
ia«  IF(LZ-2)  1^5, 146, ia7  31 

145  WRITE   (MPR,23)  32 
23  FORMAT   (73H0                                                                                            ROTatI  33 

ION  LENGTH   IN   YEARS)  34 

GO  TO  1«9  35 

146  WRITE    (MPR,24)  36 
2a  FORMAT    (70H0                                                                                                         SIT  37 

IE  INDEX  IN  FEET)  38 

GO  TO   lUQ  39 

147  WRITE    (MPR,25)  40 

25  FORMAT  (69H0  PRO  41 
lOUCTION  SYSTEM)  42 

149  WRITE   (MPR,26)    (LI(L)#L=1,LX)  43 

26  FORMAT  (111,5120) 

IF   (KCXX)  l<50,lb0,152 
152  WRITE  (MPR,27) 

27  FORMAT  (17H0  PERIODIC  COSTS, /115H  YEAR  COST  YEAR  C  47 
lOST  YEAR  COST  YEAR  COST  YEAR  COST  48 
2           YEAR         COST)  *9 

DO  155  KCsl,KCXX  50 

READ  (MRE,13)    (NC (L,KC) »PECO(L#KC) ,Lsl#6)  51 
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11  F0RMAT(6(I2,F7.2) )  52 
155  WRITE   (MPR,2<?)  (NC  (L,KC)  #   PECO(L»KC)  ,Lsl  »LX)  53 

29  FORMAT  (I6,F9,2,5(I11,F9,2))  5a 
160  IF  (KIXX)  170^170,162  55 
162  WRITE   (MPR,30)    (A(I),Isl9,23)  56 

30  FORMAT   (25H0     PERIODIC  RETURNS  FROM  ,   5Aa)  57 
WRITE   (MPP,31)  58 

31  FORMAT   (IIBH       YEAR  YIELD  QUAL           YEAR  YIELD  OUAL           YEAR  YIELD  59 
lOUAL           YEAR  YIELD  QUAL           YEAR  YIELC^  QUAL           YEAR  YIELD  OUAL)  60 

DO   165  Kls    l^KJXX  61 

READ   (MREfia)    (Nl  (L,Kl),YL01(L#Kl),QUALl(LrKn,L=l#6)  62 

l«  FORMAT   (6(I2#F5.1,F5.2))  63 

165  WRITE   tMPR,32)(Nl(L,Kn,YLDl(L#Kl),QUALl(LfKl),   L=1,LX)  64 

32  FORMAT  (J6,  F6.1,  F6.2,  5(18,  F6,l,  F6,2))  65 
170  IF(K2XX)  180,180,172  66 
172  WRITE   fHPR,30)    (A(I),Is2a,28)  67 

WRITE    (MPR,3n  68 

DO   175  <2sl,K2XX  69 

READ   (5,14)(N2rL,K2),YL02(L,K2),QUAL2(L,K2)#Lsl,6)  70 

175  WRITE   (MPR,32) (N2(L,K2), YLD2(L#K2),QUAL2(L,k2),Ls1»LX)                  ^  71 

180  IF   (Kjxxi    190,190,182  72 

182  WRITE   (MPR,30) CA(I) ,   1=29,33)  73 

WRITE   (MPR,31)  7a 

00   185  K3=1,K3XX  75 

READ  (5,1^)(N3(L»k3),YL03(L,K3)#QUAL3(L#K3)#Ls1,6)  76 

185  WRITE   (MPR,32) (N3(L,K3),YLD3(L,K3),QUAL3(L#K3),L=1»LX)  77 

12  F0RMAT(8F9,3)  78 

190  READ    (5, 1 2) (ANC ( J) ,   C A NC ( J ) , Js I , JX )  79 
DO  191   Msl,Mx  80 

191  READ   (5, 12) (PR(K,M^ ,   CPR(K,M),   Ksl,KX)  61 

192  IF(NZ-1 ) 195, 195, 195  82 

193  READ  (5, 12) (FVAL(N),Nsl,NX)  83 
195  DO  390   J=1,JX  8a 

00  390   Msl,MX  85 

198  DO  390  ^J^1,NX  86 

WRITE    (^PR,3^)AfNiC(J),CANC(J)  87 

3a  FORMAT    (57H0     AnMUAL   COST                                              $,   F7,2,      a6H  88 

1   CHANGE   IN  ANNUAL  COST                                      ,2PFU,2,    17H  PERCENT  PER  89 

2YEAR)                                                                                                                     '  90 

WRITE    (MPR,35) (A(5*K+) a),A(5*K+15) rA(5*K  +  l6)# A(5*K  +  17),A(5*K  +  18),  9  J 

1PR(K,M) , A(5*K+ta) , A(5*Kf 15) , A(5*K+16) , A(5*K+17) , A(5*K+18) ,CPR(K,M  92 

2),K=1,KX)  93 

35  FORMAT    (12H       PRICE  OF    ,   5Aa,    5H         $,0PF7,2»    26H               CHANGE   IN  9a 
IPRICE  OF   ,    5Aa,2PFll,2,    17H  PERCENT  PER  YEAR)  95 

IF(N7-n?oa,20a,205  96 

20a  WRITE    rMpR,36)  97 

36  FORMAT    (30H       PERPETUAL   INVESTMENT  SERIES)  98 
GO  TO  210  99 

205  WRITE   (MPR,37)   FVAL(N)  100 

37  FORMAT   (37H       VALUE  AT  END  UF  ONE   INVESTMENT       S,   F7,2)  101 
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210  DO  3^5  Lsl »LX  -  ..^ 

KCXAsKCX(L)  Jqj 

KlXAsKlXd)  jQ. 

K2XA=K2XfL)  jQc 

K5XAsK5X(L)  IQz, 

XLYsFLHATCLYCL) )  107 

00  3«0   l2l #8  IQg 

CALL  CALC(KCXA,K1XA,K2XA,K3XA,XLY,RTL0G,ANC» J,I,RATE#  109 

1CANC,NC,L,PECQ,NI , YLOl ,PR,M,QUAL1,CPR,N2,YLD2,QUAL2,N3,YLD3,  UO 

20UAL3,NZ,FVAL, NIVALIN) 

340  CONTINUE  112 

JJ=0  113 

IF (VALIN(L, 7) *VALIN(L, 8) 5501,502,500  Ha 

500  ROR(L1=0,0  115 
GOTO  345  11^, 

502  R0f?(L)sRATE(7)  117 
IF(VALIN(L,8) .EQ.0,0)ROR(L)sRATE(8)  118 
GOTO  345  119 

501  R1=RATE(7)  120 
R3sRATE(8)  121 
V1SVALIN(L,7)  122 
V3  =  VALINa,8)  123 

504  RATE(27)s(Rl+R3)/2.0  124 
RTL0G(27)5L0G(  1  ,0^'RATE(27)  )  125 
R0R(L)sRATE(27)  126 
Is27  127 
CALL  CALC(KCXA,K1XA,K2XA,K3XA,XLY,RTL06,ANC,J#I,RATE#  128 

1CANC,NC,L#PEC0,N1  , YLOl ,PR,M,ouALl,CPR,N2, YLD2,0UAL2,N3,YLD3,  J  29 

2QUAL3,NZ,FVAL, NIVALIN)  130 

503  JJaJJ+l  131 

IF(JJ,Ea,17)   GO  TO  345  132 

lF(A9S(VALIN(L,27n ,LT,5£-3)GOTO  345  133 

IF(Vl*VALlN(L,27n505,509#506  134 

505  V3=VALINfL,27)  135 
P35RATE(27)  136 
GOTO  504  137 

506  V1=VALIN(L,27)  138 
R1=RATF(?7)  139 
GOTO  504  140 

509       WRITE(MPR,599)  141 

599       FORMATC    ERROR   IN  CHANGES')  142 

STOP  143 

345  CONTINUE  144 

WRITE   (MPR,38)  145 
38  FORMAT   (70H       PRESENT  DISCOUNTED  NET  WORTH  AT  GIVEN  ALTERNATIVE  RA  146 

ITES  OF   INTEREST)  147 

WRITE    (MPP,a0) (LY(L) ,L=1,6) , (LY(L),Lsl,6)  148 

40  FORMAT   (7H       RATE,    19,   518,    12H                 RATE,    19,   518)  149 

DO  365  1=1,3  150 
365  WRITE   (MPR,41)RATE(I), (VALIN(L,I),   Ls 1 , 6 ) , RA TE ( 1+  3 ) , ( VALIN (L , I t  3  151 

1)#  LSI, 6)  152 
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HI  FORMAT(?PF7.1,OPFU,2,0P5F6.2,2PF9,l,0PFU,2#0P5F8,2)  155 

WRlTF(MPR,q5)    (RDRCI ), 1=1*6)  154 

45         FORMATC        IRR='?PF11,2,5F8,2)  155 
IF   (NJZ   ,EQ,    t)   GH  TO  390 
00  600   I  =  \,b 

DRATE   s   (1.0   +  RATE(I))   **  LY(L) 
DO  600  L  s   1 »6 

EAI    (L,n   s   (RATF(I)   *  DRATE)   /   (DRATE  -  1,0) 
EAI(L,I)  =  EAI(L,I)   *  VALlN(L,n 

600  CONJTINUE 
WRITE  (MPR,60n 

601  FORMAT   (•     EQUIVALENT  ANNUAL  INCOME  AT  GIVEN  ALTERNATIVE  RATES  0» 

*  ,    'F  INTEREST') 

WRITF(MPR,   aO)    (LY(L)#   L=l»b), (LY(L)#L=lf6)# 
DO  602   I   s  1,3 

WRITE   (MPR,ai)   RATE(I),  (EAI(L#I)#Lsl#6)#RATECI+3)f 

*  (EAI(L,I*3),L=1#6) 

602  CONTINUE 

390  CONTINUE  156 

READ   (MREfiniEND  157 

IF  (IEND-98)a00, 142#410  158 

400   WRITE   (MPR,42)  159 

42  FORMAT(23H0     ERROR   IN   INPUT  CARDS)  160 

410  CONTINUE  161 

WRITE    (MPR,2014)  162 

2014  FORMAT   (IHI)  163 

STOP  164 

END  165 
•FOR, I  ,CALC 

SUBROUTINE  CALC(KCXA,KlXA,K2XA,K3XA,XLY,RTL0G,ANCf J, I,RATE,  167 

1CANC,NC,L#PF.C0,N1 ,  YLDl  ,PR,M,auALl  ,CPR,N2,  YLD2,QUAL2,N3,  YLD3,  168 

2QUAL3,NZ,FVAL#N,VALIN)  169 

DIMENSION  ANC(IO),    CANC(IO),    NC(6,40),   PECO(6,40),   Nl(6,50),  170 

IYLD1(6,50),   QUAL1(6,50),   N2(6,50),   QUAL2(6,50),  N3(6,50),   YL03  171 

2(6,50),   QUAL3(6,50),   PR ( 3, 30 ) , CPR ( 3, 30 ) »   FVAL(25)#   RATE(27),  172 

3RTL0G(27),   VALIN(6,27),  173 

4YLD2(6,50)  174 

DISC(Q0  0  0FL)=EXP(RTLai*Q0  0  0FL)  175 

OANCrO.O  176 

DCANC=0,0  177 

DKCsO.O  178 

DKlsO.O  179 

DK230,0  180 

DK3=0,0  181 

DFVALsO.O  182 

RTLOI=RTLOG(I)  183 

DISC0=EXP(RTLQG(I)*XLY)  184 

IF(ANC(J))  225,230,225  185 

225  DANC=(ANC(J)*(DISC0-1 .0))/(RATE(I)*DISCO)  186 

230  IF   (CANC(J))   235,240,235  187 

235  DCANC=(CANC(J)*ANC( J)*(DISC0-XLY*RATE(I)-1 ,0) )/(RATE(I )**2*DISC0)  188 

240   IF{KCXA)    250,250,2^1  189 
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2ai   DO  ?/45   KC  =  1  ,KCXA  J90 

XMC=FLOAT(MC (L,KC) )  191 

OKC=PKC+PECn(L,KC ) /DISC (XNC)  192 

250  IF   (KIXA)   260,280,251  193 

251  DO  255  K1=1,K1XA  19^ 
XMlsFLOATCNl (LfKl) )  195 

255  DKl=r»Kl  +  (YLDl  (L,K1)*P«(1,M)*QUAL1  (L,Kl)*(l,OfCPR(l#M)   *XNn)/DISC(  19b 

IXNl)  197 

260  IF    (K2XA)270,270,261  198 

261  DO  265  K2=t ,K2XA  199 
X^J2  =  FLnAT(^)2(L#K2) )  200 

265  DK2=DK2^(YLD2(L,K2)*P«(2,M)*qUAL2(L,K2)*(l,0*CPR(2»M   ) *XN2) ) /DI SC (  201 

1XN2)  202 

270  IFfK3XA)?fiO,280,271  203 

271  00  275  K3=1,K5XA  20a 
xigjsFLnATC^JCLfK?) )  ,  205 

275  0K3=DK3+f VLD3(L,K3)*PR(3,M)*OUAL3(L,K3)*(1.0+CPR(3#M)*XN3))   /DISCC  206 

1XNJ3)  207 

280  TDVALsDKI +DK2+nK3-DANC-DCANC-DKC  208 

IF(NZ-n290,2^0,?95  209 

290  VALINCL, I)=TDVAL   * ( I . 0 ♦ 1 , 0 / ( D J  SCO- 1 , 0 ) )  210 

RETURN  211 

295  DFVAL  =  F\/AL(N)/niSCO  212 

VAL  IN(L, I)=TDVAL  +  DFVAL  213 

RETURN  2ia 

END  215 

PXQT 
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APPENDIX  R 


Test  Data  for  Computer  Program 


01  01  06105030^5^50530  30  50«5'4^ob0«fO10l0101O10101020202020202020201010l0202 

02  02090201 

LORLDLLY  PINE   SITE    IMDFX   70   30   AND  US  YEAR  ROTATIONS 
PULPwnOD  -  CORDS         SAwTlMHER  -  m^F 

00     60,      00  90, 

20  6,  1,  20  6,  I,  20  6,  1, 
30  7,  1,  30  7,  I,  30  7,  1, 
30  1,1  ,9  30  1,1  ,9  30  1.1  ,9 
a5ii,7  I,      aSll.T  1,      a5U.7  I. 


00 

30. 

00  60. 

00  90 

00  30 

20 

6.  I 

20  6. 

1  . 

20 

6,  1, 

30 

7.  1 

30  7. 

1  . 

30 

7,  1. 

30 

5.3  1 

30  5.3 

1. 

30 

5.3  1. 

,60 

.02 

1,00 

.02 

5. 

.0? 

50. 

.02 

5. 

.02 

75, 

.02 

5. 

.0? 

100, 

.02 

8. 

.02 

50, 

.0? 

B. 

.02 

75. 

.02 

^. 

.02 

100. 

.02 

n. 

.02 

50. 

,02 

11. 

.02 

75. 

.02 

u. 

,02 

100. 

.02 

0.0 

98 

020  I  063 0  30 30 a 5a5 0530 30 3 0^5^5050 2020 2020 2020202 0  20 202020 20202020 101010202 
02  02090201 

LORLDLLY   PINE   SITE    INDEX   70   30   AND   05   YEAR  ROTATION  -  RELEASE   AGE  3 
PULPWOOO  -  CORDS         SAwTlMBER  -  mhf 
00 
03 

to  6,  1.  20  6,  1.  20  6.  I,  20  6.  I,  20  6,  1,  ?0  6,  i, 
30     7,    1.       30     7,    1.       30     7.    I.       30     7.    1,       30     7,    1,       30     7.  1, 


60 


30. 

00      60  , 

0  0      9  0. 

00     30  , 

00     60  , 

00 

90, 

15. 

03  15. 

0  3  15. 

0  3  15, 

03  15. 

03 

15. 

.  1 

20  6. 

1  .  20 

6.  I. 

20  6. 

1, 

2  0  6, 

7,  1 

30     7  . 

1  .  30 

7.  I. 

30  7, 

1. 

30  7, 

.3  I 

30  5,3 

1  .  30 

5,3  I, 

30  1.1 

.9 

30  1.1 

051 1 ,7 

1. 

0511 .7 

.02 

1  .00 

.02 

5, 

.02 

50. 

.02 

5. 

.0? 

75. 

.02 

5. 

.02 

100, 

.02 

ft. 

.02 

50. 

.02 

B. 

.02 

75. 

.02 

B. 

.02 

100, 

.02 

1  1  . 

.02 

50. 

.02 

11. 

,02 

75. 

,02 

1  1  . 

.02 

too. 

.02 

30  1.1  .9 
0511.7  1, 


0,0 

99 
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